Исходный код

Option Explicit
Call ShowProfilesInfo()


'==============================================================================
' Вывести описание созданных в приложении профилей 
'==============================================================================
Sub ShowProfilesInfo()
        Dim strMsg, prf
        For Each prf in ThisApplication.Profiles
                strMsg = strMsg & """" & prf.Description & """" & Chr(13)
        Next
        MsgBox "В приложении определены следующие профили:" & Chr(13) & _
                        strMsg,vbInformation, "Информация о текущей настройке"
End Sub 
'==============================================================================